home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / SOLAR / Vector Generators / Arrays / pick-array < prev   
Text File  |  1998-10-23  |  884b  |  35 lines

  1. pick-array row col len array &optional :type
  2.  
  3. To pick up hexacord you have to give the starting row and column position the length and the 2 dimensional array, and finally the direction :type. To define an the array use build-array.
  4.  
  5. The following goes right from row 11 and column 7. The length  is 6 and the direction is right. Array named 'array' is used.
  6.  
  7. (pick-array 11 7 6 array :right)
  8. --> (9 1 2 8 10 4)
  9.  
  10. The following :type specifications can be used:
  11.  
  12.    :left
  13.    :right
  14.    :up
  15.    :down
  16.    :diagonal-up
  17.    :diagonal-down
  18.  
  19. Note that if the array boundaries are exceeded then the counting starts from the other side.
  20.  
  21. (pick-array 11 5 6 array :left)
  22. --> (0 3 5 6 11 4)
  23.  
  24. (pick-array 11 4 6 array :left)
  25. --> (3 5 6 11 4 10)
  26.  
  27. (pick-array 11 3 6 array :left)
  28. --> (5 6 11 4 10 8)
  29.  
  30. (pick-array 0 0 6 array :down)
  31. --> (10 3 8 9 11 2)
  32.  
  33. (pick-array 0 0 6 array :up)
  34. --> (10 4 6 0 1 5)
  35.